home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 2
/
002.d81
/
word stripper
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-08-26
|
620b
|
25 lines
10 ifx=0thenx=1:load"case converter",8,1
20 ifx=1thenx=2:load"instring",8,1
30 print"[147]":poke53281,0:poke53280,6
35 printchr$(14)
40 sp$=" ":m%=0
50 print"string you want split":inputcc$
55 print"[147][208]rocessing":printcc$:print
60 sys50000cc$: rem case convert
70 sys49152sp$cc$m%
80 ifm%=1thencc$=mid$(cc$,x):goto70
90 ifm%>1thent$=left$(cc$,m%-1):gosub30000:cc$=mid$(cc$,m%+1):goto70
105 t$=cc$:gosub30000
110 goto50
200 :
30000 ift$=""then30030
30010 ift$=" "then30030
30015 iflen(t$)>1thentt$=right$(t$,1):goto40000
30016 iflen(t$)>1thenift$<"0"or(t$<"a"andt$>"9")thent$=mid$(t$,2):goto30000
30017 iflen(t$)>1thenift$>"z"thent$=mid$(t$,2):goto30000
30018 poke53281,0:poke646,1
30020 printchr$(34)t$chr$(34)
30030 return
40000 iftt$<"0"or(tt$<"a" and tt$>"9")thent$=left$(t$,len(t$)-1):goto30000
40001 goto30016